#!/usr/local/bin/perl
use warnings;
sub main()
{
$a = 0;

$b = 0;
$a = 3;

$b = 3;

while (($a==$b)) {
print ((($a+1)*2)+(($b+2)*4));
$a = ($a+1);
}


return $a;
}

print main()."\n";
